home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (Latin America) Volume 1 #6 / CD-ROM Today 6 Latam.iso / referenc / evol / map.dxr / 00070_xPlatform pathnames.ls < prev    next >
Encoding:
Text File  |  1996-11-08  |  746 b   |  39 lines
  1. on ThisIsAMac
  2.   return the machineType < 256
  3. end
  4.  
  5. on MakePathFromHere SubFolder, fileName
  6.   if ThisIsAMac() then
  7.     set glue to ":"
  8.   else
  9.     set glue to "\"
  10.   end if
  11.   return the pathName & SubFolder & glue & fileName
  12. end
  13.  
  14. on MakePathFromRoot SubFolder, fileName
  15.   global RootPath
  16.   if ThisIsAMac() then
  17.     set glue to ":"
  18.   else
  19.     set glue to "\"
  20.   end if
  21.   return RootPath & SubFolder & glue & fileName
  22. end
  23.  
  24. on SetHereAsRoot
  25.   global RootPath
  26.   set RootPath to the pathName
  27. end
  28.  
  29. on ReturnToHere whichFrame
  30.   global ReturnFrame, ReturnMovie
  31.   set ReturnFrame to whichFrame
  32.   set ReturnMovie to the pathName & the movieName
  33. end
  34.  
  35. on ExperimentFile whichExperiment
  36.   global RootPath
  37.   return MakePathFromRoot("EXPRMNTS", whichExperiment)
  38. end
  39.